<Query Kind="VBStatements" />

' Variables can be given default values

' Numeric Variables
Dim ByteValue As Byte = 255  ' Maximum Value - 8-bits
Dim ShortValue As Short = 32767  '  - 16-bits
Dim IntegerValue As Integer = 2147483647   ' 
Dim DecimalValue As Decimal = 123098123098123123123123123.23
Dim SingleValue As Single = 123098123098123123123123123.23
Dim DoubleValue As Double = 12309811232131231231212323.123

ByteValue.Dump("ByteValue")
ShortValue.Dump("ShortValue")
IntegerValue.Dump("IntegerValue")
DecimalValue.Dump("DecimalValue")
SingleValue.Dump("SingleValue")
DoubleValue.Dump("DoubleValue")